home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / COMPNENT / ISAMEXPT / ISAMEXPT.ZIP / DAT.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-05  |  7KB  |  251 lines
  1. unit Dat;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;
  8.  
  9. type
  10.   TLWSetup = class(TForm)
  11.     Lw5: TEdit;
  12.     Lw6: TEdit;
  13.     Lw1: TEdit;
  14.     Lw2: TEdit;
  15.     Lw3: TEdit;
  16.     Lw4: TEdit;
  17.     GroupBox1: TGroupBox;
  18.     RadioButton2: TRadioButton;
  19.     RadioButton1: TRadioButton;
  20.     RadioButton3: TRadioButton;
  21.     BitBtn1: TBitBtn;
  22.     Label1: TLabel;
  23.     WSNR: TEdit;
  24.     LW99: TEdit;
  25.     Bevel1: TBevel;
  26.     Label3: TLabel;
  27.     PW: TEdit;
  28.     Label6: TLabel;
  29.     Label2: TLabel;
  30.     Label4: TLabel;
  31.     Sprachgroup: TGroupBox;
  32.     DRadio: TRadioButton;
  33.     ERadio: TRadioButton;
  34.  
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure BitBtn1Click(Sender: TObject);
  37.     procedure FormShow(Sender: TObject);
  38.     procedure DRadioClick(Sender: TObject);
  39.     procedure ERadioClick(Sender: TObject);
  40.   private
  41.     Procedure Setze_Sprache;
  42.   public
  43.     { Public-Deklarationen }
  44.   end;
  45.  
  46. var
  47.   LWSetup: TLWSetup;
  48.   Treiber     : String[8];
  49.   __Laufwerk  : String[60];
  50.   __Laufwerk2 : String[60];
  51.   __Laufwerk3 : String[60];
  52.   __Laufwerk4 : String[60];
  53.   __Laufwerk5 : String[60];
  54.   __Laufwerk6 : String[60];
  55.   __Netz      : String[20];
  56.   IsamWsnr    : String;
  57.   __LST       : Text;
  58.   _PW         : String[10];
  59.   {NetType     : NetSupportType;}
  60.   HomeDir     : STring;
  61.  
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66.  
  67. Uses UToolDll, IniFiles;
  68.  
  69. Var DatIni: TIniFile;
  70.  
  71. Function Encode_Pw(Pw: String): String;
  72. var s,t: String;
  73.     i,x: Integer;
  74. begin
  75.   S:= '';
  76.   if Length(Pw) > 0 then begin
  77.     for i:= 1 to length(pw) do begin
  78.       x:= 255 - ord(pw[i]) - i;
  79.       Str(x,t);
  80.       While Length(T) < 3 do T:= '0'+T;
  81.       S:= S + T;
  82.     end;
  83.   end;
  84.   Result:= S;
  85. end;
  86.  
  87. Function Decode_Pw(Pw: String): String;
  88. var p,s,t: String;
  89.     i,C,x,Code: Integer;
  90. begin
  91.   s:= '';
  92.   P:= Pw;
  93.   i:= 0;
  94.   While Length(P) > 0 do begin
  95.     inc(i);
  96.     t:= Copy(P,1,3);
  97.     Val(T,x,Code);
  98.     C:= (x - 255 + i) * (-1);
  99.     if (C > 0) and (C < 256) then S:= S + Chr(C);
  100.     Delete(P,1,3);
  101.   end;
  102.   Result:= S;
  103. end;
  104.  
  105. Function GetAppName: String;
  106. var G: String;
  107.     xPos: Integer;
  108. begin
  109.   G:= Application.ExeName;
  110.   xPos:= Pos('\',G);
  111.   While xPos > 0 do begin
  112.     Delete(G,1,xPos);
  113.     xPos:= Pos('\',G);
  114.   end;
  115.   xPos:= Pos('.',G);
  116.   if xPos > 0 then G:= Copy(G,1,xPos-1);
  117.   GetAppName:= G;
  118. end;
  119.  
  120. procedure TLWSetup.FormShow(Sender: TObject);
  121. begin
  122.   Caption := 'Setup  '+ HomeDir + 'DATEIEN.INI';
  123. end;
  124.  
  125. procedure TLWSetup.FormCreate(Sender: TObject);
  126. begin
  127.   HomeDir:= ExtractFilePath(Application.ExeName);
  128.   DatIni:= TIniFile.Create(HomeDir + 'DATEIEN.INI');
  129.   __Laufwerk:= DatIni.ReadString('DAT_SETUP','Laufwerk1',HomeDir);
  130.   __Laufwerk2:= DatIni.ReadString('DAT_SETUP','Laufwerk2','');
  131.   __Laufwerk3:= DatIni.ReadString('DAT_SETUP','Laufwerk3','');
  132.   __Laufwerk4:= DatIni.ReadString('DAT_SETUP','Laufwerk4','');
  133.   __Laufwerk5:= DatIni.ReadString('DAT_SETUP','Laufwerk5','');
  134.   __Laufwerk6:= DatIni.ReadString('DAT_SETUP','Laufwerk6','');
  135.   __Netz:= DatIni.ReadString('DAT_SETUP','Netz','');
  136.   IsamWsnr:= DatIni.ReadString('DAT_SETUP','ISAMWSNR','');
  137.   _PW:= Decode_PW(DatIni.ReadString('DAT_SETUP','PW',''));
  138.   Sprache:= DatIni.ReadInteger('DAT_SETUP','Sprache',0);
  139.   if Sprache <> 1 then Sprache:= 0;
  140.   if Sprache = 1 then ERadio.Checked:= True else DRadio.Checked:= True;
  141.   DatIni.Free;
  142.   Setze_Sprache;
  143.   {if __Netz = '' then __Netz := 'NONET';}
  144.  
  145.   LW1.Text      := __Laufwerk;
  146.   LW2.Text      := __Laufwerk2;
  147.   LW3.Text      := __Laufwerk3;
  148.   LW4.Text      := __Laufwerk4;
  149.   LW5.Text      := __Laufwerk5;
  150.   LW6.Text      := __Laufwerk6;
  151.   LW99.Text     := HomeDir;
  152.   PW.Text       := _PW;
  153.   if Upstr(__Netz) = 'NONET' then Radiobutton1.Checked := True;
  154.   if Upstr(__Netz) = 'MSNET' then Radiobutton2.Checked := True;
  155.   if Upstr(__Netz) = 'NOVELLNET' then Radiobutton3.Checked := True;
  156.   Wsnr.Text := IsamWsNR;
  157. end;
  158.  
  159. Procedure TLWSetup.Setze_Sprache;
  160. begin
  161.   if Sprache = 1 then begin
  162.     Groupbox1.Caption:= 'Net';
  163.     Label6.Caption:= 'Password';
  164.     SprachGroup.Caption:= 'Language';
  165.     DRadio.Caption:= 'German';
  166.     ERadio.Caption:= 'English';
  167.   end
  168.   else begin
  169.     Groupbox1.Caption:= 'Netz';
  170.     Label6.Caption:= 'Passwort';
  171.     SprachGroup.Caption:= 'Sprache';
  172.     DRadio.Caption:= 'Deutsch';
  173.     ERadio.Caption:= 'Englisch';
  174.   end;
  175. end;
  176.  
  177. procedure TLWSetup.BitBtn1Click(Sender: TObject);
  178. var xStr: String;
  179. begin
  180.   __Laufwerk :=LW1.Text;
  181.   __Laufwerk2:=LW2.Text;
  182.   __Laufwerk3:=LW3.Text;
  183.   __Laufwerk4:=LW4.Text;
  184.   __Laufwerk5:=LW5.Text;
  185.   __Laufwerk6:=LW6.Text;
  186.   _PW := PW.Text;
  187.   IsamWsnr:= Wsnr.Text;
  188.   if DRadio.Checked then Sprache:= 0 else Sprache:= 1;
  189.   if Radiobutton1.Checked then
  190.   begin
  191.     __Netz := 'NONET';
  192.     {NetType := NoNet;}
  193.   end;
  194.   if Radiobutton2.Checked then
  195.   begin
  196.     __Netz := 'MSNET';
  197.     {NetType := MsNet;}
  198.   end;
  199.   if Radiobutton3.Checked then
  200.   begin
  201.     __Netz := 'NOVELLNET';
  202.     {NetType := Novell;}
  203.   end;
  204.   HomeDir:= ExtractFilePath(Application.ExeName);
  205.   DatIni:= TIniFile.Create(HomeDir + 'DATEIEN.INI');
  206.   DatIni.WriteString('DAT_SETUP','Laufwerk1',__Laufwerk);
  207.   DatIni.WriteString('DAT_SETUP','Laufwerk2',__Laufwerk2);
  208.   DatIni.WriteString('DAT_SETUP','Laufwerk3',__Laufwerk3);
  209.   DatIni.WriteString('DAT_SETUP','Laufwerk4',__Laufwerk4);
  210.   DatIni.WriteString('DAT_SETUP','Laufwerk5',__Laufwerk5);
  211.   DatIni.WriteString('DAT_SETUP','Laufwerk6',__Laufwerk6);
  212.   DatIni.WriteString('DAT_SETUP','Netz',__Netz);
  213.   DatIni.WriteString('DAT_SETUP','ISAMWSNR',IsamWsnr);
  214.   xstr:= Encode_Pw(_PW);
  215.   DatIni.WriteString('DAT_SETUP','PW',xStr);
  216.   DatIni.WriteInteger('DAT_SETUP','Sprache',Sprache);
  217.   DatIni.Free;
  218.   Close;
  219. end;
  220.  
  221. procedure TLWSetup.DRadioClick(Sender: TObject);
  222. begin
  223.   if DRadio.Checked then Sprache:= 0 else Sprache:= 1;
  224.   Setze_Sprache;
  225. end;
  226.  
  227. procedure TLWSetup.ERadioClick(Sender: TObject);
  228. begin
  229.   if ERadio.Checked then Sprache:= 1 else Sprache:= 0;
  230.   Setze_Sprache;
  231. end;
  232.  
  233. {Unit Initialisation}
  234. begin
  235.   HomeDir:= ExtractFilePath(Application.ExeName);
  236.   DatIni:= TIniFile.Create(HomeDir + 'DATEIEN.INI');
  237.   __Laufwerk:= DatIni.ReadString('DAT_SETUP','Laufwerk1',HomeDir);
  238.   __Laufwerk2:= DatIni.ReadString('DAT_SETUP','Laufwerk2','');
  239.   __Laufwerk3:= DatIni.ReadString('DAT_SETUP','Laufwerk3','');
  240.   __Laufwerk4:= DatIni.ReadString('DAT_SETUP','Laufwerk4','');
  241.   __Laufwerk5:= DatIni.ReadString('DAT_SETUP','Laufwerk5','');
  242.   __Laufwerk6:= DatIni.ReadString('DAT_SETUP','Laufwerk6','');
  243.   __Netz:= DatIni.ReadString('DAT_SETUP','Netz','');
  244.   IsamWsnr:= DatIni.ReadString('DAT_SETUP','ISAMWSNR','');
  245.   _PW:= Decode_Pw(DatIni.ReadString('DAT_SETUP','PW',''));
  246.   Sprache:= DatIni.ReadInteger('DAT_SETUP','Sprache',0);
  247.   if Sprache <> 1 then Sprache:= 0;
  248.   DatIni.Free;
  249. end.
  250.  
  251.